home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / ram-bow.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  15KB  |  315 lines
  1. 1 REM CONVERTED FROM "RAINBOW.C" BY           SEAN ROONEY, PORT CREDIT ONT.
  2. 2 REM SUNDAY NOV.11, 1984.
  3. 3 REM A PARODY FOR PEOPLE INTO COMPUTERS
  4. 4 :
  5. 5 :
  6. 30 REM SOUND WITH WORDS ON SCREEN
  7. 100 CLR:PRINTCHR$(8):PRINTCHR$(142):PRINTCHR$(155):GOSUB50000
  8. 120 BO=53280:BG=53281:POKEBO,12:POKEBG,11
  9. 140 VC=54296:REM VOLUME CONTROL
  10. 160 A1=54277:A2=54284:A3=54291
  11. 180 S1=54278:S2=54285:S3=54292
  12. 200 W1=54276:W2=54283:W3=54290
  13. 220 H1=54273:H2=54280:H3=54287
  14. 240 L1=54272:L2=54279:L3=54286
  15. 300 REM CONTROL STRINGS
  16. 320 CS$=CHR$(147):REM CLEAR SCREEN
  17. 340 L$=CHR$(17)+CHR$(17):REM PRINT TWO  LINES DOWN
  18. 360 N$="":REM NO CHARACTER
  19. 500 POKEVC,15
  20. 520 POKEA1,136:POKEA2,136:POKEA3,136
  21. 540 POKES1,136:POKES2,136:POKES3,136
  22. 560 POKEW1,33:POKEW2,33:POKEW3,33
  23. 600 REM "OVER THE RAINBOW" -- COPYRIGHT     1938 METRO-GOLDWYN-MAYER INC.
  24. 620 REM FROM THE PICTURE "THE WIZARD OF     OZ" -- ALL RIGHTS RESERVED.
  25. 1000 REM START OF SONG -- READ IN NOTES AND STRING DATA WITH CONTROL CHARS.
  26. 1020 REM PART ONE -- BLACK AND WHITE         BEGINNING OF SONG PLAYED SLOWLY
  27. 1060 PRINT"[147]        SOMEWHERE  OVER  THE"
  28. 1070 PRINT"       RAMBOW"
  29. 1080 PRINT" (EDITED) BY  SEAN ROONEY"
  30. 1100 FORT=1TO2800:NEXT:PRINTCS$;L$
  31. 1120 W=300:REM TIME DELAY VARIABLE
  32. 1200 READ A,B,C,D,E,F,G$
  33. 1210 IFA=500THENW=W-100:GOTO1200
  34. 1220 IFA=600THENGOSUB1350:GOTO1200
  35. 1230 IFA=700THENW=W+100:GOTO1200
  36. 1240 IFA=800THENW=200:GOTO1200
  37. 1250 IFA=999THENGOSUB50000:GOSUB1350:END:PRINTCHR$(144):PRINTCHR$(9):END
  38. 1260 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F
  39. 1270 POKEW1,33:POKEW2,33:POKEW3,33
  40. 1280 IFG$=""THEN1310
  41. 1290 IFASC(G$)=133THENPRINT:PRINT
  42. 1300 IFASC(G$)=137THENPRINTCS$;L$
  43. 1310 PRINTG$;
  44. 1320 FORT=1TOW:NEXT
  45. 1330 GOTO1200
  46. 1340 REM PART TWO -- IN COLOUR
  47. 1350 POKEH1,O:POKEL1,0:POKEH2,0:POKEL2,0:POKEH3,0:POKEL3,0
  48. 1360 PRINT"[147]":FORT=1TO43:POKEBO,T:POKEBG,T:FORQ=1TO15:NEXTQ,T
  49. 1370 W=150:RETURN
  50. 1500 REM START OF DATA
  51. 1520 DATA0,0,25,177,0,0,,0,0,30,141,0,0,,15,70,25,177,10,60,,15,70,30,141
  52. 1525 DATA10,60,
  53. 1530 DATA17,37,25,177,10,60,,17,37,30,141,10,60,,15,70,25,177,10,60,,15,70
  54. 1535 DATA30,141,10,60,:REM BAR 1
  55. 1540 DATA0,0,27,56,0,0,,0,0,30,141,0,0,,17,37,27,56,11,114,,17,37,30,141,11,114,
  56. 1550 DATA20,100,27,56,11,114,,20,100,30,141,11,114,,19,63,27,56,11,114,,19,63
  57. 1555 DATA30,141,11,114,:REM BAR 2
  58. 1560 DATA0,0,34,75,0,0,,0,0,34,75,0,0,,19,63,34,75,7,163,,19,63,34,75,7,163,
  59. 1570 DATA22,227,34,75,12,216,,22,227,34,75,12,216,,20,100,34,75,12,216,,20,100
  60. 1575 DATA34,75,12,216,:REM BAR 3
  61. 1580 DATA30,141,61,126,19,63,,30,141,45,198,19,63,,27,56,54,111,17,37,,27,56
  62. 1585 DATA40,200,17,37,
  63. 1590 DATA25,177,51,97,15,70,,25,177,38,126,15,70,,38,126,45,198,15,70,:REM BAR 4
  64. 1600 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"WHEN "
  65. 1610 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
  66. 1620 DATA15,70,30,141,10,60,WORLD ,15,70,30,141,10,60,
  67. 1630 DATA15,70,22,227,10,60,IS ,15,70,25,177,10,60,"A ":REM BAR 5
  68. 1640 DATA17,37,27,56,0,0,HOPE-,17,37,00,00,0,0,
  69. 1650 DATA17,37,27,56,0,0,"LESS ",17,37,00,00,0,0,
  70. 1660 DATA17,37,27,56,10,60,"JUM-",17,37,30,141,10,60,"[133]BLE "
  71. 1670 DATA17,37,20,100,10,60,AND ,17,37,22,227,10,60,"THE "
  72. 1680 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
  73. 1685 DATA19,63,25,177,0,0,DROPS ,19,63,0,0,0,0,
  74. 1690 DATA19,63,25,177,10,60,TUM-,19,63,30,141,10,60,"BLE "
  75. 1700 DATA19,63,19,63,10,60,ALL ,19,63,20,100,10,60,"A "
  76. 1710 DATA0,0,22,227,5,185,"[133]ROUND,",0,0,22,227,5,185,
  77. 1720 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
  78. 1730 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
  79. 1740 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 8
  80. 1750 DATA0,0,25,177,5,25,"[133]HEAV-",7,163,25,177,5,25,
  81. 1760 DATA8,147,25,177,5,25,,8,147,25,177,5,25,
  82. 1770 DATA0,0,25,177,5,103,EN  ,8,147,25,177,5,103,
  83. 1780 DATA9,21,25,177,5,103,,9,21,25,177,5,103,:REM BAR 9
  84. 1785 DATA500,500,500,500,500,500,TRIPLET
  85. 1790 DATA20,100,25,177,8,147,O-,20,100,25,177,8,147,
  86. 1800 DATA20,100,30,141,8,147,PENS  ,20,100,30,141,8,147,
  87. 1810 DATA20,100,27,56,8,147,A  ,20,100,27,56,8,147,
  88. 1815 DATA700,700,700,700,700,700,SLOWER
  89. 1820 DATA21,154,25,177,7,163,MAG-,21,154,25,177,7,163,
  90. 1830 DATA21,154,22,227,7,163,IC  ,21,154,22,227,7,163,:REM  BAR 10
  91. 1840 DATA12,216,20,100,0,0,"LANE.",12,216,20,100,0,0,
  92. 1850 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  93. 1860 DATA0,0,20,100,12,216,,0,0,20,100,12,216,
  94. 1870 DATA0,0,20,100,17,37,,0,0,20,100,17,37,:REM BAR 11
  95. 1880 DATA30,141,61,126,19,63,,30,141,45,198,19,63,
  96. 1890 DATA27,56,54,111,17,37,,27,56,40,200,17,37,
  97. 1900 DATA25,177,51,97,15,70,,25,177,38,126,15,70,
  98. 1910 DATA22,227,45,198,13,156,,22,227,34,75,13,156,:REM BAR 12
  99. 1920 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"[133]WHEN "
  100. 1930 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
  101. 1940 DATA15,70,30,141,10,60,CLOUDS ,15,70,30,141,10,60,
  102. 1950 DATA15,70,22,227,10,60,DARK-,15,70,25,177,10,60,"EN ":REM BAR 13
  103. 1960 DATA17,37,27,56,0,0,UP ,17,37,00,00,0,0,
  104. 1970 DATA17,37,27,56,0,0,"THE ",17,37,00,00,0,0,
  105. 1980 DATA17,37,27,56,10,60,"SKY-",17,37,30,141,10,60,"[133]WAY "
  106. 1990 DATA17,37,20,100,10,60,THERE'S ,17,37,22,227,10,60,"A ":REM BAR 14
  107. 2000 DATA19,63,25,177,0,0,RAM-,19,63,0,0,0,0,
  108. 2010 DATA19,63,25,177,0,0,BOW  ,19,63,0,0,0,0,
  109. 2020 DATA19,63,25,177,10,60,HIGH-,19,63,30,141,10,60,"WAY "
  110. 2030 DATA19,63,19,63,10,60,TO ,19,63,20,100,10,60,"BE "
  111. 2040 DATA0,0,22,227,5,185,"[133]OPENED,",0,0,22,227,5,185,
  112. 2050 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
  113. 2060 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
  114. 2070 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 16
  115. 2080 DATA0,0,19,63,4,73,"[133]LEAD-",0,0,19,63,4,73,
  116. 2090 DATA12,216,19,63,4,73,,12,216,19,63,4,73,
  117. 2100 DATA12,216,20,100,8,147,ING ,12,216,20,100,8,147,
  118. 2110 DATA12,216,20,100,8,147,,12,216,20,100,8,147,:REM BAR 17
  119. 2120 DATA24,63,40,200,17,63,FROM ,24,63,40,200,17,63,
  120. 2130 DATA24,63,38,126,17,37,YOUR ,24,63,38,126,17,37,
  121. 2140 DATA25,177,34,75,11,114,COMMODORE-,25,177,34,75,11,114,
  122. 2150 DATA25,177,38,126,5,185,VIDEO ,25,177,38,126,5,185,:REM BAR 18
  123. 2160 DATA0,0,30,141,7,163,"     SCREEN",0,0,30,141,7,163,
  124. 2170 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
  125. 2180 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
  126. 2190 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 19
  127. 2200 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
  128. 2210 DATA17,37,0,0,7,163," TO ",20,100,0,0,7,163,"A "
  129. 2220 DATA25,177,0,0,7,163,PLACE ,30,141,0,0,7,163,"BE-"
  130. 2230 DATA38,126,0,0,7,163,HIND ,40,200,0,0,7,163,"THE ":REM BAR 20
  131. 2240 DATA0,0,30,141,7,163,DISK DRIVE,0,0,30,141,7,163,
  132. 2250 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
  133. 2260 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
  134. 2270 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 21
  135. 2290 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
  136. 2300 DATA0,0,17,37,7,163,"JUST ",0,0,20,100,7,163,"A "
  137. 2310 DATA0,0,25,177,7,163,STEP ,0,0,30,141,7,163,"BEY-"
  138. 2320 DATA28,214,38,126,12,32,OND ,23,214,40,200,12,32,"THE ":REM BAR 22
  139. 2330 DATA0,0,45,198,0,0,RAIN,27,56,45,198,22,227,
  140. 2340 DATA40,200,45,198,34,75,,40,200,45,198,34,75,
  141. 2350 DATA34,75,45,198,27,56,,51,97,45,198,40,200,:REM BAR 23
  142. 2360 DATA30,141,0,0,0,0,,30,141,40,200,45,198,
  143. 2370 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
  144. 2380 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
  145. 2390 DATA30,141,76,252,102,194,,30,141,76,252,102,194,:REM BAR 24
  146. 2400 DATA600,600,600,600,600,600,PART ONE
  147. 2410 DATA12,216,20,100,7,163,"SOME-",12,216,20,100,7,163,
  148. 2420 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  149. 2430 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  150. 2440 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 1
  151. 2450 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  152. 2460 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  153. 2470 DATA30,141,38,126,12,216,"RAM-",30,141,38,126,12,216,
  154. 2480 DATA34,75,40,200,25,177,"BOW ",34,75,40,200,25,177,:REM BAR 2
  155. 2490 DATA0,0,20,100,6,206,WAY ,0,0,20,100,6,206,
  156. 2500 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  157. 2510 DATA25,177,34,75,10,60,UP IN ,25,177,34,75,10,60,
  158. 2520 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 3
  159. 2530 DATA22,227,30,141,12,216," HIGH MEMORY,",22,227,30,141,12,216,
  160. 2540 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  161. 2550 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  162. 2560 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 4
  163. 2670 DATA0,0,17,37,10,60,"THERE'S ",0,0,17,37,10,60,
  164. 2680 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  165. 2690 DATA0,0,27,56,11,114,A ,0,0,27,56,11,114,
  166. 2700 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 5
  167. 2710 DATA20,100,25,177,7,163,BYTE LOCATION ,20,100,25,177,7,163,
  168. 2720 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"I "
  169. 2730 DATA20,100,25,177,8,147,HEARD ,20,100,25,177,8,147,
  170. 2740 DATA20,100,27,56,8,147,OF ,20,100,27,56,8,147,:REM BAR 6
  171. 2750 DATA19,63,22,227,5,185,"[133]ONCE ",19,63,22,227,5,185,
  172. 2760 DATA0,0,19,63,5,185,IN ,0,0,20,100,5,185,"A "
  173. 2770 DATA17,37,22,227,13,156,TPUG MEET-,17,37,22,227,13,156,
  174. 2780 DATA19,63,15,70,25,177,ING ,19,63,15,70,25,177,:REM BAR 7
  175. 2790 DATA15,70,20,100,12,216,...,15,70,20,100,12,216,
  176. 2800 DATA34,75,40,200,10,60,,30,141,38,126,10,60,
  177. 2810 DATA27,56,34,75,11,114,,27,56,34,75,11,114,
  178. 2820 DATA30,141,51,97,15,70,,30,141,51,97,15,70,:REM BAR 8
  179. 2830 DATA12,216,20,100,7,163,"SOME-",12,216,20,100,7,163,
  180. 2840 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  181. 2850 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  182. 2860 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 9
  183. 2870 DATA30,141,38,126,12,216,"  O-",30,141,38,126,12,216,
  184. 2880 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  185. 2890 DATA30,141,38,126,12,216,"RAM-",30,141,38,126,12,216,
  186. 2900 DATA34,75,40,200,25,177,"BOW ",34,75,40,200,25,177,:REM BAR 10
  187. 2910 DATA0,0,20,100,6,206,SKIES ,0,0,20,100,6,206,
  188. 2920 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  189. 2930 DATA25,177,34,75,10,60,ARE ,25,177,34,75,10,60,
  190. 2940 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 11
  191. 2950 DATA22,227,30,141,12,216,"[133][154]BLUE,",22,227,30,141,12,216,
  192. 2960 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  193. 2970 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  194. 2980 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 12
  195. 2990 DATA0,0,17,37,10,60,"AND ",0,0,17,37,10,60,
  196. 3000 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  197. 3010 DATA0,0,27,56,11,114,THE ,0,0,27,56,11,114,
  198. 3020 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 13
  199. 3030 DATA20,100,25,177,7,163,PROGRAMS ,20,100,25,177,7,163,
  200. 3040 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"YOU "
  201. 3050 DATA20,100,25,177,8,147,DARE ,20,100,25,177,8,147,
  202. 3060 DATA20,100,27,56,8,147,TO ,20,100,27,56,8,147,:REM BAR 14
  203. 3070 DATA19,63,22,227,5,185," DREAM ",19,63,22,227,5,185,
  204. 3080 DATA0,0,19,63,5,185,REAL-,0,0,20,100,5,185,"LY "
  205. 3090 DATA17,37,22,227,13,156,DO ,17,37,22,227,13,156,
  206. 3100 DATA19,63,15,70,25,177,COME ,19,63,15,70,25,177,:REM BAR 15
  207. 3110 DATA0,0,20,100,5,25,"TRUE.",0,0,20,100,5,25,
  208. 3120 DATA15,70,20,100,5,25,,15,70,20,100,5,25,
  209. 3130 DATA15,70,20,100,3,210,,15,70,20,100,3,210,
  210. 3140 DATA0,0,0,0,7,163,,0,0,30,141,7,163,"SOME ":REM BAR 16
  211. 3145 DATA700,700,700,700,700,700,DREAMILY
  212. 3150 DATA0,0,25,177,0,0,DAY ,0,0,30,141,0,0,"I'LL"
  213. 3160 DATA15,70,25,177,10,60,WISH ,15,70,30,141,10,60,"UP-"
  214. 3170 DATA17,37,25,177,10,60,ON ,17,37,30,141,10,60,"AN "
  215. 3180 DATA15,70,25,177,10,60,ASTERISK ,15,70,30,141,10,60,"AND":REM BAR 17
  216. 3190 DATA0,0,27,56,0,0,"[158] WAKE ",0,0,30,141,0,0,"UP "
  217. 3200 DATA17,37,27,56,11,114,WHERE ,17,37,30,141,11,114,"THE "
  218. 3210 DATA20,100,27,56,11,114,CLOUDS ,20,100,30,141,11,114,"ARE "
  219. 3220 DATA19,63,27,56,11,114,FAR ,19,63,30,141,11,114,"BE-":REM BAR 18
  220. 3230 DATA0,0,34,75,0,0,"HIND ",0,0,34,75,0,0,
  221. 3240 DATA19,63,34,75,7,163,,19,63,34,75,7,163,
  222. 3250 DATA22,224,34,75,12,216,"ME, ",22,224,34,75,12,216,
  223. 3260 DATA20,100,34,75,12,216,,20,100,34,75,12,216,:REM BAR 19
  224. 3270 DATA0,0,61,126,10,60,,0,0,38,126,10,60,
  225. 3280 DATA17,37,54,111,10,60,,17,37,34,75,10,60,
  226. 3290 DATA20,100,51,97,10,60,,20,100,30,141,10,60,
  227. 3300 DATA19,63,45,198,10,60,,19,63,30,141,10,60,"WHERE   ":REM BAR 20
  228. 3310 DATA0,0,25,177,0,0,SYNTAX-,0,0,30,141,0,0,"ERRORS "
  229. 3320 DATA15,70,25,177,10,60,MELT ,15,70,30,141,10,60,"LIKE "
  230. 3330 DATA17,37,25,177,10,60,LEM-,17,37,30,141,10,60,"ON "
  231. 3340 DATA15,70,25,177,10,60,DROPS ,15,70,30,141,10,60,"   A-":REM BAR 21
  232. 3350 DATA0,0,28,214,0,0,WAY ,0,0,34,75,0,0,"A-"
  233. 3360 DATA14,107,28,214,0,0,BOVE ,14,107,34,75,0,0,"  THE "
  234. 3370 DATA22,227,28,214,17,37,CHIM-,22,227,34,75,17,37,"NEY "
  235. 3380 DATA20,100,28,214,17,37,TOPS ,20,100,34,75,17,37,"THAT'S":REM BAR 22
  236. 3390 DATA22,227,38,126,19,63,"[133]WHERE ",22,227,38,126,19,63,
  237. 3400 DATA22,227,38,126,17,37,,22,227,38,126,17,37,
  238. 3410 DATA20,100,38,126,15,70,YOU'LL ,20,100,38,126,15,70,
  239. 3420 DATA20,100,38,126,14,107,,20,100,38,126,14,107,:REM BAR 23
  240. 3430 DATA22,227,45,198,13,156,FIND ,22,227,45,198,13,156,
  241. 3440 DATA22,227,45,198,13,156,,22,227,45,198,13,156,
  242. 3450 DATA24,63,34,75,14,107,ME.,24,63,34,75,14,107,
  243. 3460 DATA24,63,34,75,14,107,,24,63,34,75,14,107,:REM BAR 24
  244. 3465 DATA800,800,800,800,800,800,CHORUS
  245. 3470 DATA12,216,20,100,7,163,"[159]SOME-",12,216,20,100,7,163,
  246. 3480 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  247. 3490 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  248. 3500 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 25
  249. 3510 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  250. 3520 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"  THE "
  251. 3530 DATA30,141,38,126,12,216,"RAM-",30,141,38,126,12,216,
  252. 3540 DATA34,75,40,200,25,177,"BOW ",34,75,40,200,25,177,:REM BAR 26
  253. 3550 DATA0,0,20,100,6,206,"COMPUTER ",0,0,20,100,6,206,
  254. 3560 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  255. 3570 DATA25,177,34,75,10,60,       HACKERS ,25,177,34,75,10,60,
  256. 3580 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 27
  257. 3590 DATA22,227,30,141,12,216,"[133][153][145]LIVE,",22,227,30,141,12,216,
  258. 3600 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  259. 3610 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  260. 3620 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 28
  261. 3630 DATA0,0,17,37,10,60,"PROGRAMMERS ",0,0,17,37,10,60,
  262. 3640 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  263. 3650 DATA0,0,27,56,11,114,PROGRAM ,0,0,27,56,11,114,
  264. 3660 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 29
  265. 3670 DATA20,100,25,177,7,163,O-,20,100,25,177,7,163,
  266. 3680 DATA17,37,20,100,7,163,VER ,19,63,22,227,7,163,"THE "
  267. 3690 DATA20,100,25,177,8,147,"     RAM-",20,100,25,177,8,147,
  268. 3700 DATA20,100,27,56,8,147,"BOW ",20,100,27,56,8,147,:REM BAR 30
  269. 3710 DATA19,63,22,227,5,185,"[133][154]WHY ",19,63,22,227,5,185,
  270. 3720 DATA0,0,19,63,5,185,THEN ,0,0,20,100,5,185,"OH "
  271. 3730 DATA17,37,22,227,13,156,WHY ,17,37,22,227,13,156,
  272. 3740 DATA19,63,15,70,25,177,CAN'T ,19,63,15,70,25,177,:REM BAR 31
  273. 3750 DATA15,70,20,100,0,0,"I?",15,70,20,100,7,163,
  274. 3760 DATA15,70,20,100,8,147,,15,70,20,100,10,60,
  275. 3770 DATA15,70,20,100,11,114,,15,70,20,100,12,216,
  276. 3775 DATA700,700,700,700,700,700,SLOWER
  277. 3780 DATA0,0,0,0,15,70,,40,200,61,126,17,37,:REM BAR 32
  278. 3790 DATA30,141,51,97,0,0,,40,200,61,126,0,0,
  279. 3800 DATA30,141,51,97,15,70,,40,200,61,126,15,70,
  280. 3810 DATA30,141,51,97,17,37,,40,200,61,126,17,37,
  281. 3820 DATA30,141,51,97,15,70,,40,200,61,126,15,70,:REM BAR 33
  282. 3830 DATA34,75,54,111,0,0,,38,126,61,126,0,0,
  283. 3840 DATA34,75,54,111,15,70,,38,126,61,126,15,70,
  284. 3850 DATA34,75,54,111,17,37,,38,126,61,126,17,37,
  285. 3860 DATA34,75,54,111,15,70,,38,126,61,126,15,70,:REM BAR 34
  286. 3870 DATA40,200,68,149,0,0,,40,200,68,149,0,0,
  287. 3880 DATA40,200,68,149,15,70,,40,200,68,149,15,70,
  288. 3890 DATA40,200,68,149,17,37,,40,200,68,149,17,37,
  289. 3900 DATA40,200,68,149,15,70,,40,200,68,149,15,70,:REM BAR 35
  290. 3910 DATA27,56,34,75,0,0,,27,56,34,75,0,0,
  291. 3920 DATA27,56,34,75,17,37,,27,56,34,75,17,37,
  292. 3930 DATA27,56,34,75,20,100,,27,56,34,75,20,100,
  293. 3940 DATA0,0,0,0,19,63,,30,141,0,0,19,63,"[133][129]IF ":REM BAR 36
  294. 3950 DATA0,0,25,177,10,60,HAP-,0,0,30,141,10,60,"PY "
  295. 3960 DATA15,70,25,177,10,60,LIT-,15,70,30,141,10,60,"TLE "
  296. 3970 DATA17,37,25,177,10,60,HACK-,17,37,30,141,10,60,"ERS "
  297. 3980 DATA15,70,25,177,10,60,HACK ,15,70,30,141,10,60,"BE-":REM BAR 37
  298. 3990 DATA0,0,27,56,11,114,"[133][153]YOND ",0,0,30,141,11,114,"THE "
  299. 4000 DATA17,37,27,56,11,114,RAM-,17,37,30,141,11,114,"BOW, "
  300. 4005 DATA700,700,700,700,700,700,SLOWER
  301. 4010 DATA20,100,27,56,11,114,WHY ,20,100,30,141,11,114,"OH "
  302. 4015 DATA700,700,700,700,700,700,SLOWER
  303. 4017 DATA700,700,700,700,700,700,SLOWER
  304. 4020 DATA27,56,34,75,19,63,WHY ,30,141,38,126,19,63,"CAN'T ":REM BAR 38
  305. 4030 DATA27,56,40,200,0,0,"I?",27,56,40,200,15,70,
  306. 4040 DATA27,56,40,200,17,37,,27,56,40,200,20,100,
  307. 4050 DATA34,75,40,200,22,227,,34,75,40,200,27,56,
  308. 4060 DATA34,75,40,200,30,141,,34,75,40,200,34,75,:REM BAR 39
  309. 4070 DATA61,126,81,161,51,97,,61,126,81,161,51,97,
  310. 4080 DATA61,126,81,161,51,97,,61,126,81,161,51,97,:REM BAR 40 -- END OF SONG
  311. 9990 DATA 999,999,999,999,999,999,THE END
  312. 50000 REM TURN OFF SOUND GENERATOR
  313. 50020 FORQ=54270TO54300:POKEQ,0:NEXT
  314. 50040 RETURN
  315.